home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed44a.d64 / add 1 to 5 t (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  183 lines
  1. 50 POKE53280,0:POKE53281,0:POKE53272,23:X=1:Y=1:K=0:W=0:C=0:R=0
  2. 100 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB240
  3. 105 PRINT"[159]                                        [146]";
  4. 110 PRINT"                                        [146]";
  5. 115 PRINT"          [200][197][204][197][206]'[211]  [194][193][211][201][195] [205][193][212][200]           [146]";
  6. 120 PRINT"[159]                                        [146]";:GOSUB291:GOSUB240
  7. 125 PRINT"            [193][196][196][201][212][201][207][206] [212][197][211][212] 4             [146]";
  8. 130 PRINT"[159]                 WITH                   [146]";
  9. 135 PRINT"          NUMBERS FROM 1 TO 5           [146]";
  10. 140 PRINT"[159]                                        [146]";
  11. 145 PRINT"                                        [146]"
  12. 150 GOSUB 291:GOSUB780
  13. 155 PRINT"[147][153] [215]HAT IS YOUR FIRST NAME?"
  14. 156 INPUT N$
  15. 160 PRINT"[147][153] [201]N THIS UNIT WE [212][197][211][212] ADDITION SKILLS
  16. 162 [153]" WITH NUMBERS FROM 0PRINT TO 5PRINT.
  17. 164 PRINT" [217]OU HAVE ONLY [207][206][197] CHANCE TO ANSWER      EACH QUESTION
  18. 166 [153]" RIGHT$F YOU MISS IT, THAT'S A DEFPEEK(null)(null)(null)(null)VAL(null)PRINT.
  19. 168 PRINT" [217]OU WILL BE PLAYING AGAINST THE CLOCK   SO DON'T WASTE ANY TIME."
  20. 170 GOSUB292:GOSUB460
  21. 175 PRINT"[147]":GOSUB291
  22. 180 PRINT"[147][158] [193]ND AWAY WE GO, "N$
  23. 185 GOSUB291:GOSUB200:GOSUB290
  24. 190 PRINT"[147]":GOSUB291
  25. 195 TI$="000000":GOTO500
  26. 200 REM <YES> SOUND
  27. 202 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  28. 204 POKE54296,15:POKE54277,42:POKE54278,250
  29. 206 POKE54276,23:POKE54273,23:POKE54272,191
  30. 208 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO250:NEXT
  31. 210 POKE54296,0:RETURN
  32. 220 REM <NO> SOUND
  33. 222 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  34. 224 POKE54296,15:POKE54277,18:POKE54278,242
  35. 226 POKE54276,33:POKE54273,4:POKE54272,48
  36. 228 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  37. 230 POKE54296,0:RETURN
  38. 240 REM <BLIP> SOUND
  39. 242 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  40. 244 POKE54296,6:POKE54277,42:POKE54278,250
  41. 246 POKE54276,23:POKE54273,23:POKE54272,191
  42. 248 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  43. 250 POKE54296,0:RETURN
  44. 260 REM <DING> SOUND
  45. 262 SS=54272:POKE54296,15:POKESS,50:POKESS+1,35:POKESS+2,0:POKESS+3,8:POKESS+5,0
  46. 264 POKESS+6,10*16+9:POKESS+4,14:POKESS+4,65:FORQQ=1TO20:POKESS+4,64
  47. 266 RETURN
  48. 270 REM <VERY WRONG> SOUND
  49. 272 SS=54272:POKE54296,15:POKESS,32:POKESS+1,3:POKESS+2,128:POKESS+3,13
  50. 274 POKESS+5,4*16+0:POKESS+6,10*16+8
  51. 276 POKESS+24,15:POKESS+4,65:FORQQ=1TO500:NEXT:POKESS+4,64:RETURN
  52. 290 FORTM=1TO600:NEXT:RETURN
  53. 291 FORTM=1TO1000:NEXT:RETURN
  54. 292 FORTM=1TO2000:NEXT:RETURN
  55. 293 FORTM=1TO3000:NEXT:RETURN
  56. 300 PRINT"[147]":GOSUB290
  57. 302 PRINT"[155] [193]DD 1-5 [212][156]"TAB(14)""N$TAB(30)"[155][201]TEM:"Y
  58. 305 RETURN
  59. 310 PRINT"[159]            ";A$"+[159]";B$"="Z$
  60. 340 S=54272:POKES,50:POKES+1,35:POKES+2,0:POKES+3,8:POKES+5,0
  61. 345 POKES+6,10*16+9:POKES+4,14:POKES+4,65:FORQ=1TO20:POKES+4,4:FORQ=1TO500:RETURN
  62. 350 REM TI$="000000"
  63. 355 N=TI/60
  64. 360 N=INT(N+.5)
  65. 365 PRINT"[154]";N"SECONDS[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  66. 370 GOSUB340:RETURN
  67. 400 GOSUB290
  68. 402 PRINT"[153]                   [217][197][211]                  [146]":GOSUB200:GOSUB292
  69. 404 PRINT"[145][145]                                        "
  70. 410 RETURN
  71. 420 POKE53280,2:GOSUB220:GOSUB291
  72. 423 PRINT"[150]                   [206][207]!                  [146]":GOSUB292
  73. 425 PRINT"[145][145]                                        [145][145]"
  74. 440 PRINT"[147]":GOSUB290:POKE53280,13
  75. 445 PRINT"      >>>>>[160][160] [153]";A$" + [153]";B$" =[153] ";C$"   <<<<<"
  76. 450 GOSUB260:GOSUB293:GOSUB460:POKE53280,0:RETURN
  77. 460 GOSUB291:GOSUB260
  78. 462 PRINT"[154]      >>>>>    [211][208][193][195][197][160][194][193][210]    <<<<<       [146]"
  79. 464 GETR$:IFR$<>CHR$(32)THEN464
  80. 466 PRINT"[145][145]                                        ":RETURN
  81. 500 FORG=1TO25
  82. 505 FORI=1TO3:GOSUB300:GOSUB350:Y=Y+1:P=0:POKE53280,0
  83. 510 READA$,B$,C$
  84. 520 PRINT"               ";A$" + ";B$" = ":GOSUB260
  85. 530 PRINT"[158][145] ";:INPUTZ$
  86. 540 IFZ$=C$THENGOSUB400:C=C+1:GOTO550
  87. 545 GOSUB420:W=W+1:
  88. 550 NEXT G
  89. 599 :
  90. 600 PRINT"[147]       [193][196][196] 1-5 [212]    [211][195][207][210][197][160][194][207][193][210][196]         [146]":GOSUB291
  91. 602 PRINT"          [156]"N$
  92. 605 L=C*4:L=INT(L+.5)
  93. 610 PRINT"[158]          [217]OUR [211][195][207][210][197] ...";L"%":GOSUB260:GOSUB293
  94. 613 PRINT"[158]          [217]OUR TIME ...."N"SECONDS":GOSUB260:GOSUB293
  95. 615 PRINT"[153]          [195]ORRECT ......"C:GOSUB200:GOSUB292
  96. 620 PRINT"[150]          [194]LOOPERS ....."W:GOSUB270:GOSUB292
  97. 622 IF N=<160THENPRINT"          [217]OU WERE [198][193][211][212]":GOSUB260:GOSUB292:GOTO625
  98. 623 IFN=<250THENPRINT"[158]          [195]AN YOU GO FASTER?":GOSUB260:GOSUB292:GOTO625
  99. 624 PRINT"[158]          [201]'M SURE YOU CAN GO FASTER.":GOTO625
  100. 625 IFC=25THENPRINT"              [197][216][195][197][204][204][197][206][212] [215][207][210][203]!           [146]"
  101. 630 IFC=25THENGOSUB200:GOSUB292:GOTO660
  102. 635 IFC=>22THENPRINT"               [199]OOD [215]ORK [146]"
  103. 640 IFC=>22THENGOSUB200:GOSUB292:GOTO660
  104. 650 GOSUB292:PRINT" >>>>> [217]OU NEED MORE PRACTICE.":GOSUB292
  105. 655 PRINT" >>>>> [208]LEASE PLAY THIS GAME AGAIN."
  106. 660 GOSUB460
  107. 670 PRINT"[158][147]  [217]OU HAVE A CHOICE:                    ":GOSUB292
  108. 672 PRINT"  [208]RESS  [210] [146] TO REPEAT [193][196][196] 1 TO 5 [212]
  109. 673 [153]"  (null)RESS  CHR$ WAIT TO GO TO THE NEXT GAME.
  110. 674 PRINT"  [208]RESS  [205] [146] TO RETURN TO DISK [205][197][206][213],
  111. 676 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[175]R$[179][177]"CHR$"[175]R$[179][177]"G"[167]676
  112. 678 [139]R$[178]"R"[167] [140]:Y[178]1:[137]500
  113. 679 [139]R$[178]"(null)"[167] [140]:Y[178]1:[137]500
  114. 680 [139]R$[178]"G"[167] [140]:[137]800
  115. 682 [139]R$[178]"CHR$"[167] [140]:[137]800
  116. 684 [147]"MENU",8
  117. 686 [138]
  118. 688 [128]
  119. 700 [153]"LOADOPEN         (null)VALATNLENLEFT$VAL(null)CLOSERIGHT$(null)ASC(null)(null)(null)ATN(null)RIGHT$(null)(null)
  120. 702 PRINT" [212]HIS IS THE FOURTH SET OF ADDITION
  121. 704 [153]" EXERCISES DESIGNED SPECIFICALLY FOR
  122. 706 PRINT" CHILDREN CLASSED AS 'INTELLECTUALLY     CHALLENGED'.
  123. 710 [153]" VALACH PAIR OF EXERCIES USES A SET
  124. 712 PRINT" RANGE OF NUMBERS.
  125. 714 [153]" (null)HE FIRST EXERCISE ((null)) IN A PAIR
  126. 716 PRINT" PROVIVDES A MEASURED [208][210][193][195][212][201][195][197].
  127. 718 [153]" (null)HE SECOND EXERCISE ((null)) PROVIDES A      TIMED AND MEASURED (null)VAL(null)(null).
  128. 720 PRINT" [212]HIS IS THE [212][197][211][212] EXERCISE."
  129. 722 GOSUB460
  130. 730 PRINT"[147][159] [212]HE NUMBERS IN THE VARIOUS EXERCISES
  131. 732 [153]" ARE IN THESE RANGES:
  132. 734 PRINT"               1 TO 4
  133. 736 [153]"               1 TO 5
  134. 738 PRINT"               1 TO 7
  135. 740 [153]"               1 TO 8
  136. 742 PRINT"               1 TO 9
  137. 744 [153]"               1 TO 10
  138. 750 PRINT" [201]T WOULD BE A GOOD IDEA TO RECORD
  139. 752 [153]" THE CHILD'S PERFOMANCE ON EACH UNIT."
  140. 755 [153]" (null)HIS SERIES IS DEDICATED TO LEFT$ELEN LEFT$ORN
  141. 760 PRINT" FORMER PRINCIPAL OF [204]YNDWOOD [208]UBLIC
  142. 765 [153]" (null)ISSISSAUGA, (null)NTARIO, LENANADA.   1993
  143. 775 GOSUB460:RETURN
  144. 780 GOSUB291:GOSUB260
  145. 782 PRINT"[154]     >>>>>    [211][208][193][195][197][160][194][193][210]    <<<<<      [151][212]"
  146. 784 GETR$:IFR$<>CHR$(32)ANDR$<>"T"ANDR$<>"[212]"THEN784
  147. 786 IFR$="T"THENGOSUB700
  148. 788 IFR$="[212]"THENGOSUB700
  149. 790 PRINT"[145][145]                                        ":RETURN
  150. 800 PRINT"[147] [199]OING TO  ADD 4 TO 6  P [146]"
  151. 802 PRINT"[155]LOAD"CHR$(34)"ADD 4 TO 6  P"CHR$(34)",8:"
  152. 804 POKE198,0:POKE631,19:POKE632,131:POKE198,2
  153. 806 END
  154. 899 :
  155. 1000 DATA "1","3","4"
  156. 1005 DATA "4","2","6"
  157. 1010 DATA "2","3","5"
  158. 1015 DATA "3","1","4"
  159. 1020 DATA "0","2","2"
  160. 1025 DATA "2","4","6"
  161. 1030 DATA "1","3","4"
  162. 1035 DATA "3","1","4"
  163. 1040 DATA "1","2","3"
  164. 1045 DATA "1","1","2"
  165. 1050 DATA "2","3","5"
  166. 1055 DATA "4","0","4"
  167. 1060 DATA "1","5","6"
  168. 1065 DATA "1","4","5"
  169. 1070 DATA "3","2","5"
  170. 1075 DATA "3","1","4"
  171. 1080 DATA "3","3","6"
  172. 1085 DATA "1","4","5"
  173. 1090 DATA "5","1","6"
  174. 1095 DATA "3","3","6"
  175. 1100 DATA "2","4","6"
  176. 1105 DATA "3","1","4"
  177. 1110 DATA "4","1","5"
  178. 1115 DATA "2","3","5"
  179. 1120 DATA "2","4","6"
  180. 1999 :
  181. 2000 REM WHC 93 01 13<>93 07 06
  182. 2010 REM DEDICATED TO HELEN HORN 1993
  183.